home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Games / Tetris / Source / wraps.psw < prev   
Text File  |  1971-02-13  |  561b  |  25 lines
  1. defineps PSgameover(float w)
  2.     gsave
  3.     (Times-Bold) findfont 48.0 scalefont setfont
  4.     0.333 setgray
  5.     (GAME) dup stringwidth
  6.     44.0 add exch 2 div w 2 div exch sub exch
  7.     3 copy 3 copy
  8.     exch 2.0 add exch moveto show
  9.     0.0 setgray
  10.     exch 2.0 sub exch moveto show 
  11.     1.0 setgray
  12.     moveto show 
  13.  
  14.     0.333 setgray
  15.     (OVER) dup stringwidth
  16.     4.0 add exch 2 div w 2 div exch sub exch
  17.     3 copy 3 copy
  18.     exch 2.0 add exch moveto show
  19.     0.0 setgray
  20.     exch 2.0 sub exch moveto show 
  21.     1.0 setgray
  22.     moveto show 
  23.     grestore
  24. endps
  25.